home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / keyboard.swg / 0047_Disable Ctrl-Break.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-02  |  566 b   |  43 lines
  1. {
  2. BO KALTOFT
  3.  
  4. > How can i disable the Pascal interrupt key Ctrl-Break?
  5. }
  6.  
  7. Const
  8.   BreakKey : Boolean = False;
  9.   BreakOff : Boolean = False;
  10. Var
  11.   BreakSave : Pointer;
  12.  
  13. {$F+}
  14. Procedure BreakHandler; Interrupt;
  15. begin
  16.   BreakKey := True;
  17. end;
  18. {$F-}
  19.  
  20.  
  21. Procedure CBOff;
  22. begin
  23.   GetIntVec($1B, BreakSave);
  24.   SetIntVec($1B, Addr(BreakHandler));
  25.   BreakOff := True;
  26. end;
  27.  
  28. Procedure CBOn;
  29. begin
  30.   SetIntVec($1B, BreakSave);
  31.   BreakOff := False;
  32. end;
  33.  
  34. begin
  35.   BreakSave := Nil;
  36.   CBOff; {disable}
  37.   .
  38.   .
  39.   .
  40.   CBOn;  {enable}
  41. end.
  42.  
  43.